home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / paths.elc < prev    next >
Encoding:
Text File  |  1992-02-04  |  3.4 KB  |  43 lines
  1.  
  2. (defvar Info-directory (expand-file-name "../info/" exec-directory))
  3.  
  4. (defvar news-path "/usr/spool/news/" "\
  5. The root directory below which all news files are stored.")
  6.  
  7. (defvar news-inews-program (cond ((file-exists-p "/usr/bin/inews") "/usr/bin/inews") ((file-exists-p "/usr/local/inews") "/usr/local/inews") ((file-exists-p "/usr/local/bin/inews") "/usr/local/bin/inews") ((file-exists-p "/usr/lib/news/inews") "/usr/lib/news/inews") (t "inews")) "\
  8. Program to post news.")
  9.  
  10. (defvar mh-progs (cond ((file-exists-p "/usr/new/mh") "/usr/new/mh/") ((file-exists-p "/usr/local/bin/mh") "/usr/local/bin/mh/") (t "/usr/local/mh/")) "\
  11. Directory containing MH commands")
  12.  
  13. (defvar mh-lib (cond ((file-exists-p "/usr/new/lib/mh") "/usr/new/lib/mh/") ((file-exists-p "/usr/local/lib/mh") "/usr/local/lib/mh/") (t "/usr/local/bin/mh/")) "\
  14. Directory of MH library")
  15.  
  16. (defconst rmail-file-name "~/RMAIL" "\
  17. Name of user's primary mail file.")
  18.  
  19. (defconst rmail-spool-directory (if (memq system-type (quote (hpux usg-unix-v unisoft-unix rtu silicon-graphics-unix))) "/usr/mail/" "/usr/spool/mail/") "\
  20. Name of directory used by system mailer for delivering new mail.
  21. Its name should end with a slash.")
  22.  
  23. (defconst sendmail-program (if (file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail" "fakemail") "\
  24. Program used to send messages.")
  25.  
  26. (defconst term-file-prefix (if (eq system-type (quote vax-vms)) "[.term]" "term/") "\
  27. If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\")))
  28. You may set this variable to nil in your `.emacs' file if you do not wish
  29. the terminal-initialization file to be loaded.")
  30.  
  31. (defconst manual-program (if (eq system-type (quote berkeley-unix)) "/usr/ucb/man" "/usr/bin/man") "\
  32. Program to run to print man pages.")
  33.  
  34. (defconst manual-formatted-dir-prefix (if (file-exists-p "/usr/man/cat.C") "/usr/man/cat." "/usr/man/cat") "\
  35. Prefix for directories containing formatted manual pages.
  36. Append a section-number or section-name to get a directory name.")
  37.  
  38. (defconst manual-formatted-dirlist (cond ((eq system-type (quote hpux)) (quote ("/usr/man/cat1" "/usr/man/cat2" "/usr/man/cat3" "/usr/man/cat4" "/usr/man/cat5" "/usr/man/cat6" "/usr/man/cat7" "/usr/man/cat1m" "/usr/man/cat8" "/usr/local/man/cat1" "/usr/local/man/cat2" "/usr/local/man/cat3" "/usr/local/man/cat4" "/usr/local/man/cat5" "/usr/local/man/cat6" "/usr/local/man/cat7" "/usr/local/man/cat1m" "/usr/local/man/cat8" "/usr/contrib/man/cat1" "/usr/contrib/man/cat2" "/usr/contrib/man/cat3" "/usr/contrib/man/cat4" "/usr/contrib/man/cat5" "/usr/contrib/man/cat6" "/usr/contrib/man/cat7" "/usr/contrib/man/cat1m" "/usr/contrib/man/cat8"))) ((file-exists-p "/usr/man/cat.C") (quote ("/usr/man/cat.C" "/usr/man/cat.CP" "/usr/man/cat.CT" "/usr/man/cat.DOS/" "/usr/man/cat.F" "/usr/man/cat.HW" "/usr/man/cat.M/" "/usr/man/cat.S" "/usr/man/cat.LOCAL"))) ((file-exists-p "/usr/man/cat1") (quote ("/usr/man/cat1" "/usr/man/cat2" "/usr/man/cat3" "/usr/man/cat4" "/usr/man/cat5" "/usr/man/cat6" "/usr/man/cat7" "/usr/man/cat8" "/usr/man/catl" "/usr/man/catn"))) (t (quote ("/usr/catman/u_man/man1" "/usr/catman/u_man/man6" "/usr/catman/p_man/man2" "/usr/catman/p_man/man3" "/usr/catman/p_man/man4" "/usr/catman/p_man/man5" "/usr/catman/a_man/man1" "/usr/catman/a_man/man7" "/usr/catman/a_man/man8" "/usr/catman/local")))) "\
  39. List of directories containing formatted manual pages.")
  40.  
  41. (defconst abbrev-file-name (if (eq system-type (quote vax-vms)) "~/abbrev.def" "~/.abbrev_defs") "\
  42. *Default name of file to read abbrevs from.")
  43.